home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / KERMIT1.LZH / PCKSEND.FOR < prev    next >
Text File  |  1980-01-01  |  768b  |  30 lines
  1. C     This Fortran program should be run on the mainframe in conjunction 
  2. C     with a Basic program on the IBM PC to transfer Kermit.Fix to the PC.
  3. C     Daphne Tzoar, January 1983
  4. C     Columbia University Center for Computing Activities
  5.  
  6.       integer a(64)
  7.       
  8.       write(6,50)
  9. 50    format(' Ready to transfer data......')
  10.  
  11. C     Get terminal handshake
  12. 100   read (5,10,end=35)x
  13. 10    format(a1)
  14.  
  15. C     Get line from file
  16. 35    read (7,20,end=90)a
  17. 20    format(64a1)
  18.  
  19. C     Write to tty
  20.       write (6,25)a
  21. 25    format(' ',64a1,';')
  22.       goto 100
  23. 90    continue
  24.  
  25. C     Get final handshake
  26.       write (6,30)
  27. 30    format(' ',65('@'))
  28.       stop
  29.       end
  30.